home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
UTILITY1
/
MONTOR.ZIP
/
MONSRC.ZIP
/
MONTWARN.TXT
< prev
Wrap
Text File
|
1993-09-16
|
2KB
|
75 lines
VERSION 2.00
Begin Form Form3
BorderStyle = 1 'Fixed Single
Caption = "MONTOR Warning"
ClientHeight = 2070
ClientLeft = 1680
ClientTop = 2445
ClientWidth = 4455
DrawStyle = 6 'Inside Solid
Height = 2595
Left = 1620
LinkTopic = "Form3"
MaxButton = 0 'False
ScaleHeight = 2070
ScaleWidth = 4455
Top = 1980
Width = 4575
Begin CommandButton Command2
Caption = "&Help"
Height = 495
Left = 3480
TabIndex = 3
Top = 120
Width = 855
End
Begin CommandButton Command1
Caption = "Ok"
Default = -1 'True
Height = 495
Left = 2400
TabIndex = 2
Top = 120
Width = 975
End
Begin Label Label2
Height = 1215
Left = 120
TabIndex = 1
Top = 720
Width = 4215
End
Begin Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "WARNING!"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H000000FF&
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 2175
End
End
Option Explicit
Sub Command1_Click ()
Form3.Hide
End Sub
Sub Command2_Click ()
Dim Success%
Success = WinHelpByNum(Form1.hWnd, App.HelpFile, HELP_CONTEXT, WarnHelp)
End Sub
Sub Form_Load ()
Label2.Caption = WnTx
End Sub